
function xxxx()

   MsgInfo( "start" )

   DbUseArea( nil, nil, "test.dbf", nil, .t. )

   MsgInfo( FieldGet( 1 ) )

   if DbRLock()
      FieldPut( 1, "222" )
      MsgInfo( FieldGet( 1 ) )
      DbRUnLock()
   else
      MsgInfo( "Register in use", "Please try again" )
   endif

   MsgInfo( FieldGet( 1 ) )           // dfasdfasdfsd

   MsgInfo( RecCount() )

   DbCloseArea()

return nil
